)9BEG START
)9EXT INDEC
START, SAT   0
       MON   1
       MON   65
       LDX   (T1
       MON   32
       SAT   0
       JPL I (INDEC
       JXZ   END
       STA   TERM
       MON   143
       STT   ETERM
       JMP   RESRV
T1,    'TERMINAL NUMBER: '
)FILL
RES,   TERM; OP; XX
REL,   ETERM; OP; XX
ETERM, 0
TERM,  0
OP,    1
XX,    0
RESRV,
       SAT   1
       SAA   0
       MON   3
       MON   4
       LDA   (REL
       MON   123
       LDA   (RES
       MON   122
       LDA   (ESC
       MON   300
       MON   65
LOOP,  SAT   1
       MON   66
       JAZ   LOOP
       SAT   1
       MON   1
       JMP   ESC
       AND   (177
L1,    LDT   TERM
       MON   2
       JMP   ESC
       AAA   -15
       JAF   LOOP
       SAA   12
       JMP   L1
ESC,   LDA   (RES
       MON   123
END,   MON   0
)FILL
)9END
)LINE
